EnigmA Amiga Run 1995 November

home *** CD-ROM | disk | FTP | other *** search

/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / giochi / hf3.lha / Main / Heitto.Amos / Heitto.amosSourceCode

Wrap

AMOS Source Code | 1993-03-08 | 54KB | 1,517 lines

' 1.6.95 Set Buffer 1 Set Stack 1 Global MUSAT,X,X2,KAATUNUT,KAATUNUT2,KORKEUS,ENERGY#,ENERGY2#,FRAME,FRAME2,VILKKUTIME,FRAMEIDENMAARA,NAPPIS,NAPPIS2,KAATUMISENERGY,KAATUMISENERGY2,KAANNETTY2 Close Editor Kill Editor Close Workbench X=100 X2=250 KORKEUS=200 ENERGY#=40 ENERGY2#=40 KAATUMISENERGY=200 KAATUMISENERGY2=200 FRAME2=1 FRAME=1 VILKKUTIME=25 KAANNETTY2=$8000 Proc EKALEVELI Screen Close 1 Erase 7 Del Bob 32 To Length(1) If Prg Under Bsend 1 Poke Start(11),NAPPIS Poke Start(11)+5,NAPPIS2 Poke Start(11)+1,MUSAT Poke Start(11)+16,DELAY Bsend 11 Bsend 14 End If End Procedure EKALEVELI Auto View Off Screen Open 0,20,20,2,Lowres Screen Close 0 If Prg Under Bgrab 1 Bgrab 11 Bgrab 14 Else Load "hf1:main/ValkoNinzat-lr.abk" Load "T:Pankki.abk" Load "T:Hyppy.abk",14 End If NAPPIS=Peek(Start(11)) NAPPIS2=Peek(Start(11)+5) MUSAT=Peek(Start(11)+1) DELAY=Peek(Start(11)+16) Load "hf3:main/HeittoNinzat.abk",1 Load "HF3:Main/Energy.abk",1 Screen Open 0,220,156,8,Lowres For A=1 To 4 Cls 0 Paste Bob 0,0,A Get Bob 49+A,0,0 To Deek(Leek(Start(1)+2+(A-1)*8))*16,Deek(Leek(Start(1)+2+(A-1)*8)+2) Hot Spot 49+A,Deek(Leek(Start(1)+2+(A-1)*8)+6),Deek(Leek(Start(1)+2+(A-1)*8)+8) Next A Cls 0 Paste Bob 0,0,31 Get Bob 54,0,0 To Deek(Leek(Start(1)+2+(31-1)*8))*16,Deek(Leek(Start(1)+2+(31-1)*8)+2) Hot Spot 54,Deek(Leek(Start(1)+2+(31-1)*8)+6),Deek(Leek(Start(1)+2+(31-1)*8)+8) Screen Close 0 Load "HF3:Main/HeittoTausta.Abk",20 Unpack 20 To 1 Erase 20 Hide View Double Buffer Autoback 1 If MUSAT Track Load "hf3:main/HeittoModule",7 Track Play 7 End If Bob 3,10,230,55 Limit Bob 3,16,200 To 200,256 Bob 4,150,230,55 Limit Bob 4,176,200 To 320,256 Bob 5,10,230,55 Limit Bob 5,16,200 To 200,256 Bob 6,150,230,55 Limit Bob 6,176,200 To 320,256 FRAMEIDENMAARA=Length(1) Proc PELI If X<2 Poke Start(11)+2,X+1 Fade 10 Wait 130 End If End Proc Procedure PELI HEITTOX=-10 Reserve As Work 15,17 For A=1 To 16 Poke Start(15)+A,A/4.1+1 Next A DUUI: AKK=KAATUMISENERGY*0.64 Bob 3,AKK+16,230,FRAMEIDENMAARA-6 AKK=ENERGY#*3.2 Bob 5,AKK+16,240,FRAMEIDENMAARA-6 If NAPPIS=2 TIKKU=0 K=Key Shift ' Up If Peek(Start(11)+6)<$80 If Key State(Peek(Start(11)+6)) Bset 0,TIKKU End If Else If Peek(Start(11)+6)-$80=K Bset 0,TIKKU End If End If ' Down If Peek(Start(11)+8)<$80 If Key State(Peek(Start(11)+8)) Bset 1,TIKKU End If Else If Peek(Start(11)+8)-$80=K Bset 1,TIKKU End If End If ' Left If Peek(Start(11)+10)<$80 If Key State(Peek(Start(11)+10)) Bset 2,TIKKU End If Else If Peek(Start(11)+10)-$80=K Bset 2,TIKKU End If End If ' Right If Peek(Start(11)+12)<$80 If Key State(Peek(Start(11)+12)) Bset 3,TIKKU End If Else If Peek(Start(11)+12)-$80=K Bset 3,TIKKU End If End If ' Fire If Peek(Start(11)+14)<$80 If Key State(Peek(Start(11)+14)) Bset 4,TIKKU End If Else If Peek(Start(11)+14)-$80=K Bset 4,TIKKU End If End If Else TIKKU=Joy(NAPPIS) End If If KAANNETTY>0 A=Btst(3,TIKKU) If Btst(2,TIKKU) Bset 3,TIKKU Else Bclr 3,TIKKU End If If A Bset 2,TIKKU Else Bclr 2,TIKKU End If End If If KAATUMISENERGY<200 and ENERGY#>0 Add KAATUMISENERGY,2 End If If KAATUNUT>0 If KAATUNUT=400 If KAATUMISENERGY<0 KAATUNUT=399 VILKKU1=VILKKUTIME ENERGY#=ENERGY#-4 FRAME=1 If NILKKAKAATU=2 NILKKAKAATU=0 KAANNETTY=KAANNETTY2 Else If KAANNETTY2>0 KAANNETTY=0 Else KAANNETTY=$8000 End If End If Else KAATUNUT=0 Bob 1,X,KORKEUS,19+KAANNETTY FRAME=1 If NILKKAKAATU<>3 If NILKKAKAATU=0 If KAANNETTY2>0 Add X,-3 Else Add X,3 End If Else If KAANNETTY2>0 Add X,-3 Else Add X,3 End If End If End If NILKKAKAATU=0 End If Else Add KAATUNUT,-8 If KAATUNUT>250 If KAATUNUT>320 If KAATUNUT>350 If KAATUNUT>380 If NILKKAKAATU=0 If KAANNETTY=0 Add X,-15 Else Add X,15 End If Bob 1,X,KORKEUS-20,7+KAANNETTY Else Bob 1,X,KORKEUS,7+KAANNETTY End If Else If NILKKAKAATU=0 If KAANNETTY=0 Add X,-10 Else Add X,10 End If Bob 1,X,KORKEUS-14,8+KAANNETTY Else Bob 1,X,KORKEUS,8+KAANNETTY End If End If Else If NILKKAKAATU=0 If KAANNETTY=0 Add X,-4 Else Add X,4 End If Bob 1,X,KORKEUS-5,9+KAANNETTY Else Bob 1,X,KORKEUS,9+KAANNETTY End If End If Else If NILKKAKAATU=0 If KAANNETTY=0 Dec X Else Inc X End If End If Bob 1,X,KORKEUS,10+KAANNETTY End If Else If ENERGY#<1 and KAATUMISENERGY<1 X=0 Goto PROKEND End If Bob 1,X,KORKEUS,10+KAANNETTY End If End If Else Rem *********** LYANNIT ****************** BLOCKKAUS=0 If FRAME=251 A=Btst(3,TIKKU) If Btst(2,TIKKU) Bset 3,TIKKU Else Bclr 3,TIKKU End If If A=-1 Bset 2,TIKKU Else Bclr 2,TIKKU End If If KAANNETTY=0 KAANNETTY=$8000 Else KAANNETTY=0 End If FRAME=1 Else If FRAME<100 If Btst(4,TIKKU)=-1 : Rem *** Fire If Btst(0,TIKKU)=-1 and Btst(3,TIKKU)=-1 : Rem *** Pï¿½ï¿½hï¿½npotku, Fire ja up ja right FRAME=600 Else If Btst(0,TIKKU)=-1 and Btst(2,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntï¿½lyï¿½nti, Fire ja up ja left FRAME=700 Else If Btst(1,TIKKU)=-1 and Btst(2,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntï¿½potku pï¿½ï¿½hï¿½n, Fire ja down ja left FRAME=500 Else If Btst(0,TIKKU) : Rem *** Up FRAME=1100 Else If Btst(3,TIKKU)=-1 : Rem *** Right FRAME=400 Else If Btst(1,TIKKU)=-1 : Rem *** Down FRAME=300 Else If Btst(2,TIKKU) : Rem *** Left FRAME=900 Else Goto EIMUUTAKIITOS End If End If End If End If End If End If End If Else EIMUUTAKIITOS: If Btst(0,TIKKU) : Rem *** Up If Btst(3,TIKKU)=-1 : Rem *** Pï¿½ï¿½hï¿½nlyï¿½nti, Up ja Right FRAME=100 Else If Btst(2,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntyminen, Up ja Left FRAME=250 Else FRAME=1 If FRAME2>299 and FRAME2<500 : Rem *** Torjunta, Up BLOCKKAUS=2 Bob 1,X,KORKEUS,16+KAANNETTY Else BLOCKKAUS=1 Bob 1,X,KORKEUS,15+KAANNETTY End If End If End If Else If Btst(1,TIKKU) : Rem *** Kyykkyyn, Down If BLOCKKAUS<>3 FRAME=800 BLOCKKAUS=3 End If Else Bob 1,X,KORKEUS,Peek(Start(15)+FRAME)+KAANNETTY If Btst(3,TIKKU) and KAANNETTY=0 or Btst(2,TIKKU) and KAANNETTY>0 : Rem *** Right Add X,8 Add FRAME,1,1 To 16 End If If Btst(2,TIKKU) and KAANNETTY=0 or Btst(3,TIKKU) and KAANNETTY>0 : Rem *** Left Add X,-8 Add FRAME,-1,1 To 16 End If End If End If End If Else Inc FRAME If FRAME>249 and FRAME<300 : Rem *** Kï¿½ï¿½ntymisen vï¿½liasento Bob 1,X,KORKEUS,20+KAANNETTY Else If FRAME>1099 and FRAME<1200 : Rem *** potku lento If FRAME>1104 If KAANNETTY=0 Add X,6 Else Add X,-6 End If If X2-X>45 and X2-X<75 and KAANNETTY=0 or X-X2>45 and X-X2<75 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 If FRAME2<1105 or FRAME2>1116 or FRAME>1116 If BLOCKKAUS2=2 ENERGY2#=ENERGY2#-0.05 Add KAATUMISENERGY2,-5 Else ENERGY2#=ENERGY2#-0.4 Add KAATUMISENERGY2,-9 End If Else If Peek(Start(14)+FRAME-1105)>=Peek(Start(14)+FRAME2-1105) ENERGY2#=ENERGY2#-0.4 Add KAATUMISENERGY2,-9 End If End If End If End If If FRAME>1116 FRAME=1 Else Bob 1,X,KORKEUS-Peek(Start(14)+FRAME-1105),31+KAANNETTY End If Else Bob 1,X,KORKEUS,24+KAANNETTY End If End If If FRAME>899 and FRAME<1000 : Rem *** Woltti If KAANNETTY=0 Add X,-15 Else Add X,15 End If If FRAME>913 FRAME=1 Else Bob 1,X,KORKEUS,KAANNETTY+(-426+FRAME/2) End If End If If FRAME>399 and FRAME<500 : Rem *** Masuunpotku If FRAME>402 If FRAME>404 If FRAME>406 If FRAME>408 If FRAME>410 FRAME=1 Else Bob 1,X,KORKEUS,11+KAANNETTY End If Else Bob 1,X,KORKEUS,16+KAANNETTY End If Else If X2-X>45 and X2-X<75 and KAANNETTY=0 or X-X2>45 and X-X2<75 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 If BLOCKKAUS2=2 ENERGY2#=ENERGY2#-0.3 Add KAATUMISENERGY2,-25 Else ENERGY2#=ENERGY2#-2 Add KAATUMISENERGY2,-50 End If End If End If Bob 1,X,KORKEUS,12+KAANNETTY End If Else Bob 1,X,KORKEUS,16+KAANNETTY End If Else Bob 1,X,KORKEUS,11+KAANNETTY End If End If If FRAME>99 and FRAME<200 : Rem *** Lyï¿½nti If FRAME>102 If FRAME>104 If FRAME>106 FRAME=1 Else Bob 1,X,KORKEUS,5+KAANNETTY End If Else If X2-X>50 and X2-X<75 and KAANNETTY=0 or X-X2>30 and X-X2<55 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 If BLOCKKAUS2=1 ENERGY2#=ENERGY2#-0.2 Add KAATUMISENERGY2,-25 Else ENERGY2#=ENERGY2#-0.6 Add KAATUMISENERGY2,-35 End If End If End If Bob 1,X,KORKEUS,6+KAANNETTY End If Else Bob 1,X,KORKEUS,5+KAANNETTY End If End If If FRAME>499 and FRAME<600 : Rem *** Kieropotku pï¿½ï¿½hï¿½n If KAANNETTY=0 Add X,4 Else Add X,-4 End If If FRAME>502 If FRAME>504 If FRAME>506 If FRAME>508 If KAANNETTY=0 Add X,6 Else Add X,-6 End If FRAME=1 Else If X2-X>30 and X2-X<55 and KAANNETTY=0 or X-X2>30 and X-X2<55 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 If BLOCKKAUS2=1 ENERGY2#=ENERGY2#-0.5 Add KAATUMISENERGY2,-35 Else ENERGY2#=ENERGY2#-2 Add KAATUMISENERGY2,-90 End If End If End If Bob 1,X,KORKEUS,17+KAANNETTY End If Else Bob 1,X,KORKEUS,18+KAANNETTY End If Else If KAANNETTY=0 Bob 1,X,KORKEUS,16+$8000 Else Bob 1,X,KORKEUS,16 End If End If Else If KAANNETTY=0 Bob 1,X,KORKEUS,11+$8000 Else Bob 1,X,KORKEUS,11 End If End If End If If FRAME>699 and FRAME<800 : Rem *** Kï¿½ï¿½ntï¿½lyï¿½nti If FRAME>702 If FRAME>704 If FRAME>705 If KAANNETTY=0 KAANNETTY=$8000 Else KAANNETTY=0 End If Bob 1,X,KORKEUS,1+KAANNETTY FRAME=1 Else Bob 1,X,KORKEUS,19+KAANNETTY End If Else If X-X2>45 and X-X2<70 and KAANNETTY=0 or X2-X>30 and X2-X<55 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 NILKKAKAATU2=2 If BLOCKKAUS2=1 ENERGY2#=ENERGY2#-0.2 Add KAATUMISENERGY2,-25 Else ENERGY2#=ENERGY2#-1 Add KAATUMISENERGY2,-50 End If End If End If Bob 1,X,KORKEUS,21+KAANNETTY End If Else Bob 1,X,KORKEUS,20+KAANNETTY End If End If If FRAME>599 and FRAME<700 : Rem *** Pï¿½ï¿½hï¿½npotku If FRAME>602 If FRAME>604 If FRAME>606 If FRAME>608 FRAME=1 Else Bob 1,X,KORKEUS,16+KAANNETTY End If Else If X2-X>30 and X2-X<55 and KAANNETTY=0 or X-X2>30 and X-X2<55 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 If BLOCKKAUS2=1 ENERGY2#=ENERGY2#-0.3 Add KAATUMISENERGY2,-30 Else ENERGY2#=ENERGY2#-1 Add KAATUMISENERGY2,-50 End If End If End If End If Bob 1,X,KORKEUS,17+KAANNETTY Else Bob 1,X,KORKEUS,16+KAANNETTY End If Else Bob 1,X,KORKEUS,11+KAANNETTY End If End If If FRAME>799 and FRAME<850 and Btst(1,TIKKU)<>-1 FRAME=850 End If If FRAME>799 and FRAME<900 : Rem *** Kyykkyyn If FRAME>849 If FRAME>851 FRAME=1 Bob 1,X,KORKEUS,1+KAANNETTY Else Bob 1,X,KORKEUS,22+KAANNETTY End If Else If FRAME>802 BLOCKKAUS=3 FRAME=803 Bob 1,X,KORKEUS,23+KAANNETTY Else Bob 1,X,KORKEUS,22+KAANNETTY End If End If End If If FRAME>299 and FRAME<400 : Rem *** Nilï¿½kkaanpotku If FRAME>302 If FRAME>304 If FRAME>306 FRAME=1 Else Bob 1,X,KORKEUS,14+KAANNETTY End If Else If X2-X>30 and X2-X<55 and KAANNETTY=0 or X-X2>30 and X-X2<55 and KAANNETTY>0 If KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 NILKKAKAATU2=1 If BLOCKKAUS2=2 ENERGY2#=ENERGY2#-0.1 Add KAATUMISENERGY2,-20 Else ENERGY2#=ENERGY2#-1 Add KAATUMISENERGY2,-50 End If End If End If Bob 1,X,KORKEUS,14+KAANNETTY End If Else Bob 1,X,KORKEUS,13+KAANNETTY End If End If End If End If End If If VILKKU1>0 Dec VILKKU1 If VILKKUN1>0 Bob 1,X,KORKEUS,100+KAANNETTY End If Bchg 0,VILKKUN1 End If End If If X<30 Then X=30 If X>275 Then X=275 ' ******************************************************** ' ********************** Vihulainen ********************** ' ******************************************************** AKK=KAATUMISENERGY2*0.64 Bob 4,AKK+176,230,FRAMEIDENMAARA-5 AKK=ENERGY2#*3.2 Bob 6,AKK+176,240,FRAMEIDENMAARA-5 If NAPPIS2=2 TIKKU=0 K=Key Shift ' Up If Peek(Start(11)+7)<$80 If Key State(Peek(Start(11)+7)) Bset 0,TIKKU End If Else If Peek(Start(11)+7)-$80=K Bset 0,TIKKU End If End If ' Down If Peek(Start(11)+9)<$80 If Key State(Peek(Start(11)+9)) Bset 1,TIKKU End If Else If Peek(Start(11)+9)-$80=K Bset 1,TIKKU End If End If ' Left If Peek(Start(11)+11)<$80 If Key State(Peek(Start(11)+11)) Bset 2,TIKKU End If Else If Peek(Start(11)+11)-$80=K Bset 2,TIKKU End If End If ' Right If Peek(Start(11)+13)<$80 If Key State(Peek(Start(11)+13)) Bset 3,TIKKU End If Else If Peek(Start(11)+13)-$80=K Bset 3,TIKKU End If End If ' Fire If Peek(Start(11)+15)<$80 If Key State(Peek(Start(11)+15)) Bset 4,TIKKU End If Else If Peek(Start(11)+15)-$80=K Bset 4,TIKKU End If End If Else TIKKU=Joy(NAPPIS2) End If If KAANNETTY2=0 A=Btst(2,TIKKU) If Btst(3,TIKKU)=-1 Bset 2,TIKKU Else Bclr 2,TIKKU End If If A=-1 Bset 3,TIKKU Else Bclr 3,TIKKU End If End If If KAATUMISENERGY2<200 and ENERGY2#>0 Add KAATUMISENERGY2,2 End If If KAATUNUT2>0 If KAATUNUT2=400 If KAATUMISENERGY2<0 KAATUNUT2=399 ENERGY2#=ENERGY2#-4 VILKKU2=VILKKUTIME FRAME2=1 If NILKKAKAATU2=2 NILKKAKAATU2=0 KAANNETTY2=KAANNETTY Else If KAANNETTY=0 KAANNETTY2=$8000 Else KAANNETTY2=0 End If End If Else NILKKAKAATU2=0 KAATUNUT2=0 Bob 2,X2,KORKEUS,19+KAANNETTY2 FRAME2=1 If NILKKAKAATU2=0 If KAANNETTY>0 Add X2,-3 Else Add X2,3 End If Else If KAANNETTY>0 Add X2,3 Else Add X2,-3 End If End If End If Else Add KAATUNUT2,-8 If KAATUNUT2>64 If KAATUNUT2>96 If KAATUNUT2>128 If KAATUNUT2>160 If KAATUNUT2>250 If KAATUNUT2>320 If KAATUNUT2>350 If KAATUNUT2>380 If NILKKAKAATU2=0 If KAANNETTY2=0 Add X2,-15 Else Add X2,15 End If Bob 2,X2,KORKEUS-20,7+KAANNETTY2 Else Bob 2,X2,KORKEUS,7+KAANNETTY2 End If Else If NILKKAKAATU2=0 If KAANNETTY2=0 Add X2,-10 Else Add X2,10 End If Bob 2,X2,KORKEUS-14,8+KAANNETTY2 Else Bob 2,X2,KORKEUS,8+KAANNETTY2 End If End If Else If NILKKAKAATU2=0 If KAANNETTY2=0 Add X2,-4 Else Add X2,4 End If Bob 2,X2,KORKEUS-5,9+KAANNETTY2 Else Bob 2,X2,KORKEUS,9+KAANNETTY2 End If End If Else If NILKKAKAATU2=0 If KAANNETTY2=0 Dec X2 Else Inc X2 End If End If Bob 2,X2,KORKEUS,10+KAANNETTY2 End If Else If ENERGY2#<1 and KAATUMISENERGY2<1 Goto PROKEND End If Bob 2,X2,KORKEUS,10+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,45+KAANNETTY2 End If Else If KAANNETTY2=0 Add X2,3 Else Add X2,-3 End If Bob 2,X2,KORKEUS-Peek(Start(14)+KAATUNUT/13),46+KAANNETTY2 End If Else If KAANNETTY2=0 Add X2,8 Else Add X2,-8 End If If KAANNETTY2=0 Bob 2,X2,KORKEUS-Peek(Start(14)+KAATUNUT/13),47 Else Bob 2,X2,KORKEUS-Peek(Start(14)+KAATUNUT/13),47+$8000 End If End If Else Bob 2,X2,KORKEUS,36+KAANNETTY2 End If End If Else Rem *********** LYANNIT ****************** BLOCKKAUS2=0 If FRAME2=251 A=Btst(3,TIKKU) If Btst(2,TIKKU) Bset 3,TIKKU Else Bclr 3,TIKKU End If If A Bset 2,TIKKU Else Bclr 2,TIKKU End If FRAME2=1 If KAANNETTY2=0 KAANNETTY2=$8000 Else KAANNETTY2=0 End If Else If FRAME2<100 If Btst(4,TIKKU)=-1 and FRAME2<100 : Rem *** Fire If Btst(0,TIKKU)=-1 and Btst(2,TIKKU)=-1 : Rem *** Pï¿½ï¿½hï¿½npotku, Fire ja Up ja Right FRAME2=600 Else If Btst(0,TIKKU)=-1 and Btst(3,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntï¿½lyï¿½nti, fire ja Up ja Left FRAME2=700 Else If Btst(1,TIKKU)=-1 and Btst(2,TIKKU)=-1 : Rem *** Heittotï¿½hde, Fire ja down ja right FRAME2=1200 Else If Btst(1,TIKKU)=-1 and Btst(3,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntï¿½potku pï¿½ï¿½hï¿½n, fire ja down ja left FRAME2=500 Else If Btst(0,TIKKU) : Rem *** Up FRAME2=1100 Else If Btst(2,TIKKU)=-1 : Rem *** Masuunpotku, Right FRAME2=400 Else If Btst(1,TIKKU)=-1 and KAATUNUT<1 : Rem *** Down FRAME2=300 Else If Btst(1,TIKKU)=-1 FRAME2=1300 Else If Btst(3,TIKKU)=-1 : Rem *** Left FRAME2=900 Else Goto EIMUUTAKIITOS2 End If End If End If End If End If End If End If End If End If Else EIMUUTAKIITOS2: If Btst(0,TIKKU) : Rem *** Up If Btst(2,TIKKU)=-1 : Rem *** Pï¿½ï¿½hï¿½nlyï¿½nti, Up ja right FRAME2=100 Else If Btst(3,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntyminen, Up ja left FRAME2=250 Else FRAME2=1 If FRAME2>299 and FRAME2<500 : Rem *** Torjunta, Up BLOCKKAUS2=2 Bob 2,X2,KORKEUS,16+KANNETTY2 Else BLOCKKAUS2=1 Bob 2,X2,KORKEUS,15+KAANNETTY2 End If End If End If Else If Btst(1,TIKKU) : Rem *** Kyykkyyn, Down If Btst(3,TIKKU) : Rem *** Kiinnipito lyï¿½nti FRAME2=1400 Else If BLOCKKAUS2<>3 FRAME2=800 BLOCKKAUS2=3 End If End If Else Bob 2,X2,KORKEUS,Peek(Start(15)+FRAME2)+KAANNETTY2+49 If Btst(2,TIKKU) and KAANNETTY2=0 or Btst(3,TIKKU) and KAANNETTY2>0 : Rem *** Right Add X2,8 Add FRAME2,1,1 To 16 End If If Btst(3,TIKKU) and KAANNETTY2=0 or Btst(2,TIKKU) and KAANNETTY2>0 : Rem *** Left Add X2,-8 Add FRAME2,-1,1 To 16 End If End If End If End If Else Inc FRAME2 If FRAME2>1099 and FRAME2<1200 : Rem *** potku lento If FRAME2>1104 If KAANNETTY2=0 Add X2,6 Else Add X2,-6 End If If X-X2>45 and X-X2<75 and KAANNETTY2=0 or X2-X>45 and X2-X<75 and KAANNETTY2>0 If BLOCKKAUS<>3 and KAATUNUT<1 and VILKKU1<1 If FRAME<1105 or FRAME>1116 or FRAME2>1116 KAATUNUT=400 If BLOCKKAUS=1 ENERGY#=ENERGY#-0.05 Add KAATUMISENERGY,-5 Else ENERGY#=ENERGY#-0.4 Add KAATUMISENERGY,-9 End If Else If Peek(Start(14)+FRAME2-1105)>=Peek(Start(14)+FRAME-1105) KAATUNUT=400 ENERGY#=ENERGY#-0.4 Add KAATUMISENERGY,-9 End If End If End If End If If FRAME2>1116 FRAME2=1 Else Bob 2,X2,KORKEUS-Peek(Start(14)+FRAME2-1105),54+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,24+KAANNETTY2 End If End If If FRAME2>249 and FRAME2<300 : Rem *** Kï¿½ï¿½ntymisen vï¿½liasento Bob 2,X2,KORKEUS,20+KAANNETTY End If If FRAME2>799 and FRAME2<900 : Rem *** Kyykkyasennot If Btst(1,TIKKU)<>-1 and FRAME2<850 FRAME2=850 Else If Btst(4,TIKKU) and Btst(2,TIKKU) FRAME2=1500 Else If Btst(4,TIKKU) FRAME2=1000 Else If FRAME2>849 If FRAME2>851 FRAME2=1 Bob 2,X2,KORKEUS,1+KAANNETTY2 Else Bob 2,X2,KORKEUS,22+KAANNETTY2 End If Else If FRAME2>802 BLOCKKAUS2=3 FRAME2=803 Bob 2,X2,KORKEUS,23+KAANNETTY2 Else Bob 2,X2,KORKEUS,22+KAANNETTY2 End If End If End If End If End If End If If FRAME2=250 Bob 2,X2,KORKEUS,22+KAANNETTY2 End If If FRAME2>899 and FRAME2<1000 : Rem *** Woltti If KAANNETTY2=0 Add X2,-15 Else Add X2,15 End If If FRAME2>913 FRAME2=1 Else Bob 2,X2,KORKEUS,KAANNETTY2+FRAME2/2-426 End If End If If FRAME2>999 and FRAME2<1099 : Rem *** Potku kaato If FRAME2>1003 If FRAME2>1006 If FRAME2>1008 If Btst(1,TIKKU) and Btst(4,TIKKU) and Btst(2,TIKKU)<>-1 FRAME2=1000 Else FRAME2=803 End If Else Bob 2,X2,KORKEUS,36+KAANNETTY2 End If Else If X-X2>20 and X-X2<55 and KAANNETTY2=0 or X2-X>30 and X2-X<55 and KAANNETTY2>0 If KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 NILKKAKAATU=1 If BLOCKKAUS=2 ENERGY#=ENERGY#-0.1 Add KAATUMISENERGY,-20 Else ENERGY#=ENERGY#-1 Add KAATUMISENERGY,-50 End If End If End If Bob 2,X2,KORKEUS,37+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,36+KAANNETTY2 End If End If If FRAME2>1499 and FRAME2<1600 : Rem *** Lyï¿½nti masuun If FRAME2>1503 If FRAME2>1506 If FRAME2>1509 If FRAME2>1512 If Btst(1,TIKKU) and Btst(4,TIKKU) and Btst(2,TIKKU) FRAME2=1500 Else FRAME2=803 End If Else Bob 2,X2,KORKEUS,43+KAANNETTY2 End If Else If X-X2>30 and X-X2<55 and KAANNETTY2=0 or X2-X>30 and X2-X<55 and KAANNETTY2>0 If KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 If BLOCKKAUS=2 ENERGY#=ENERGY#-0.1 Add KAATUMISENERGY,-20 Else ENERGY#=ENERGY#-1 Add KAATUMISENERGY,-50 End If End If End If Bob 2,X2,KORKEUS,44+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,42+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,43+KAANNETTY2 End If End If If FRAME2>699 and FRAME2<800 : Rem *** Kï¿½ï¿½ntï¿½lyï¿½nti If FRAME2>702 If FRAME2>704 If FRAME2>705 If KAANNETTY2=0 KAANNETTY2=$8000 Else KAANNETTY2=0 End If Bob 2,X2,KORKEUS,1+KAANNETTY2 FRAME2=1 Else Bob 2,X2,KORKEUS,19+KAANNETTY2 End If Else If X-X2>45 and X-X2<70 and KAANNETTY2>0 or X2-X>30 and X2-X<55 and KAANNETTY2=0 If BLOCKKAUS<>3 and KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 NILKKAKAATU=2 If BLOCKKAUS=1 ENERGY#=ENERGY#-0.2 Add KAATUMISENERGY,-25 Else ENERGY#=ENERGY#-1 Add KAATUMISENERGY,-50 End If End If End If Bob 2,X2,KORKEUS,21+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,20+KAANNETTY2 End If End If If FRAME2>399 and FRAME2<500 : Rem *** Masuunpotku If FRAME2>402 If FRAME2>404 If FRAME2>406 If FRAME2>408 If FRAME2>410 FRAME2=1 Else Bob 2,X2,KORKEUS,11+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,16+KAANNETTY2 End If Else If X-X2>45 and X-X2<75 and KAANNETTY2=0 or X2-X>45 and X2-X<75 and KAANNETTY2>0 If BLOCKKAUS<>3 and KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 If BLOCKKAUS=2 ENERGY#=ENERGY#-0.3 Add KAATUMISENERGY,-25 Else Add KAATUMISENERGY,-50 ENERGY#=ENERGY#-2 End If End If End If Bob 2,X2,KORKEUS,12+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,16+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,11+KAANNETTY2 End If End If If FRAME2>1299 and FRAME2<1400 : Rem *** Talontta If FRAME2>1303 If FRAME2>1306 FRAME2=1 Else If X-X2>10 and X-X2<65 and KAANNETTY2=0 or X2-X>10 and X2-X<65 and KAANNETTY2>0 If KAATUNUT>0 Bob 1,X,KORKEUS,9+KAANNETTY ENERGY#=ENERGY#-0.9 Add KAATUMISENERGY,-25 NILKKAKAATU=1 End If End If Bob 2,X2,KORKEUS,38+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,16+KAANNETTY2 End If End If If FRAME2>299 and FRAME2<400 : Rem *** Nilï¿½kkaanpotku If FRAME2>302 If FRAME2>304 If FRAME2>306 FRAME2=1 Else Bob 2,X2,KORKEUS,13+KAANNETTY2 End If Else If X-X2>30 and X-X2<55 and KAANNETTY2=0 or X2-X>30 and X2-X<55 and KAANNETTY2>0 If KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 NILKKAKAATU=1 If BLOCKKAUS=2 ENERGY#=ENERGY#-0.1 Add KAATUMISENERGY,-20 Else ENERGY#=ENERGY#-1 Add KAATUMISENERGY,-50 End If End If End If Bob 2,X2,KORKEUS,14+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,13+KAANNETTY2 End If End If If FRAME2>1399 and FRAME2<1500 : Rem *** Kiinnipito lyï¿½nti If FRAME2>1403 If FRAME2>1405 If FRAME2>1407 FRAME2=1 Else Bob 2,X2,KORKEUS,41+KAANNETTY2 If X-X2>30 and X-X2<55 and KAANNETTY2=0 or X2-X>30 and X2-X<55 and KAANNETTY2>0 If BLOCKKAUS<>3 and VILKKU1<1 and KAATUNUT<1 KAATUNUT=400 NILKKAKAATU=3 If BLOCKKAUS=1 ENERGY#=ENERGY#-0.2 Add KAATUMISENERGY,-25 Else ENERGY#=ENERGY#-0.8 Add KAATUMISENERGY,-35 End If End If End If End If Else If(X-X2>30 and X-X2<55 and KAANNETTY2=0 or X2-X>30 and X2-X<55 and KAANNETTY2>0) and BLOCKKAUS<>3 and VILKKU1<1 and KAATUNUT<1 and FRAME<100 : Rem (FRAME<900 or FRAME>999) KAATUNUT=400 NILKKAKAATU=3 End If Bob 2,X2,KORKEUS,40+KAANNETTY2 End If Else If(X-X2>30 and X-X2<55 and KAANNETTY2=0 or X2-X>30 and X2-X<55 and KAANNETTY2>0) and BLOCKKAUS<>3 and VILKKU1<1 and KAATUNUT<1 and FRAME<100 : Rem (FRAME<900 or FRAME>999) NILKKAKAATU=3 KAATUNUT=400 End If Bob 2,X2,KORKEUS,39+KAANNETTY2 End If End If If FRAME2>99 and FRAME2<200 : Rem *** Lyï¿½nti If FRAME2>102 If FRAME2>104 If FRAME2>106 FRAME2=1 Else Bob 2,X2,KORKEUS,5+KAANNETTY2 End If Else If X-X2>50 and X-X2<75 and KAANNETTY2=0 or X2-X>30 and X2-X<55 and KAANNETTY2>0 If BLOCKKAUS<>3 and VILKKU1<1 and KAATUNUT<1 KAATUNUT=400 If BLOCKKAUS=1 ENERGY#=ENERGY#-0.2 Add KAATUMISENERGY,-25 Else ENERGY#=ENERGY#-0.6 Add KAATUMISENERGY,-35 End If End If End If Bob 2,X2,KORKEUS,6+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,5+KAANNETTY2 End If End If If FRAME2>1199 and FRAME2<1300 : Rem *** Heittotï¿½hti If HEITTOX<1 or HEITTOX>319 or FRAME2>1212 If FRAME2>1204 If FRAME2>1208 If FRAME2>1212 If FRAME2>1213 If FRAME2>1218 FRAME2=1 Else Bob 2,X2,KORKEUS,34+KAANNETTY2 End If Else If KAANNETTY2=0 HEITTOX=X2+40 Else HEITTOX=X2-40 End If HEITTODIR=KAANNETTY2 Bob 10,HEITTOX,KORKEUS,35 End If Else Bob 2,X2,KORKEUS,34+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,33+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,32+KAANNETTY2 End If Else FRAME2=1 End If End If If FRAME2>599 and FRAME2<700 : Rem *** Pï¿½ï¿½hï¿½npotku If FRAME2>602 If FRAME2>604 If FRAME2>606 If FRAME2>608 FRAME2=1 Else Bob 2,X2,KORKEUS,12+KAANNETTY2 End If Else If X-X2>30 and X-X2<55 and KAANNETTY2=0 or X2-X>30 and X2-X<55 and KAANNETTY2>0 If BLOCKKAUS<>3 and VILKKU1<1 and KAATUNUT<1 KAATUNUT=400 If BLOCKKAUS=1 ENERGY#=ENERGY#-0.3 Add KAATUMISENERGY,-30 Else ENERGY#=ENERGY#-1 Add KAATUMISENERGY,-50 End If End If End If End If Bob 2,X2,KORKEUS,17+KAANNETTY2 Else Bob 2,X2,KORKEUS,16+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,11+KAANNETTY2 End If End If If FRAME2>499 and FRAME2<600 : Rem *** Kieropotku pï¿½ï¿½hï¿½n If KAANNETTY2>0 Add X2,-4 Else Add X2,4 End If If FRAME2>502 If FRAME2>504 If FRAME2>506 If FRAME2>508 If KAANNETTY>0 Add X2,-6 Else Add X2,6 End If FRAME2=1 Else If X-X2>30 and X-X2<55 and KAANNETTY2=0 or X2-X>30 and X2-X<55 and KAANNETTY2>0 If BLOCKKAUS<>3 and KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 If BLOCKKAUS=1 ENERGY#=ENERGY#-0.5 Add KAATUMISENERGY,-35 Else ENERGY#=ENERGY#-2 Add KAATUMISENERGY,-90 End If End If End If Bob 2,X2,KORKEUS,17+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,18+KAANNETTY2 End If Else If KAANNETTY2=0 Bob 2,X2,KORKEUS,11+$8000 Else Bob 2,X2,KORKEUS,11 End If End If Else If KAANNETTY2=0 Bob 2,X2,KORKEUS,11+$8000 Else Bob 2,X2,KORKEUS,11 End If End If End If End If End If If VILKKU2>0 Dec VILKKU2 If VILKKUN2>0 Bob 2,X2,KORKEUS,100+KAANNETTY2 End If Bchg 0,VILKKUN2 End If End If If HEITTOX>-10 and HEITTOX<330 If HEITTODIR=0 Add HEITTOX,10 Else Add HEITTOX,-10 End If Bob 10,HEITTOX,KORKEUS-70,35 If Bob Col(10) If Col(1) HEITTOX=-10 Bob Off 10 If KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 NILKKAKAATU=1 If BLOCKKAUS=1 ENERGY#=ENERGY#-0.4 Add KAATUMISENERGY,-20 Else ENERGY#=ENERGY#-1.6 Add KAATUMISENERGY,-70 End If End If End If End If End If If X2>275 X2=275 Else If X2<30 X2=30 End If End If Wait Vbl If DELAY>0 Wait DELAY End If If Inkey$<>"" If Key State(25)=-1 While Key State(25)=-1 : Wend While Key State(25)<>-1 : Wend While Key State(25)=-1 : Wend End If If Key State(2) Add NAPPIS2,1,0 To 2 While Key State(2) : Wend End If If Key State(1) Add NAPPIS,1,0 To 2 While Key State(1) : Wend End If If Key State(69) : X=1 : Goto PROKEND : End If If Key State(94) and DELAY>0 : Dec DELAY : While Key State(94) : Wend : End If If Key State(74) and DELAY<15 : Inc DELAY : While Key State(74) : Wend : End If If Key State(55) If MUSAT=1 Erase 7 Else Track Load "hf3:Main/HeittoModule",7 Track Play 7 End If Bchg 0,MUSAT While Key State(55) : Wend End If End If Goto DUUI PROKEND: End Proc ' Framet: ' ' 0-16 = kï¿½vely ' 100-199 = lyï¿½nti ' 201 = Ylï¿½blockaus ' 202 = Alablockaus ' 250 = Kï¿½ï¿½ntymisen vï¿½liasento ' 300-399 = nilï¿½kkaanpotku ' 400-499 = masuunpotku ' 500-599 = kiertopotku pï¿½ï¿½hï¿½n ' 600-699 = pï¿½ï¿½hï¿½npotku ' 700-799 = kï¿½ï¿½ntï¿½lyï¿½nti ' 800-899 = kyykkyyn ' 900-999 = Woltti ' 1000-1099 = Potku Kaato ' 1100-1199 = Potku Lento ' 1200-1299 = Heittotï¿½hti ' 1300-1399 = Tallontta ' 1400-1499 = Kiinnipito lyï¿½nti ' 1500-1599 = Lyï¿½nti masuun